home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pcrnov89.arc / TYPE.BAS < prev   
BASIC Source File  |  1990-03-21  |  284b  |  10 lines
  1. 10 CLS:DEFINT A-Z:KEY 1,"RUN"+CHR$(34)+"TYPE"
  2. 20 ON ERROR GOTO 90
  3. 30 FILES "*.TXT"
  4. 40 INPUT "Filename";N$
  5. 50 OPEN N$ FOR INPUT AS #1:ON ERROR GOTO 0
  6. 60 IF EOF(1) THEN CLOSE:END
  7. 70 IF INKEY$ <> "" THEN WHILE INKEY$ = "":WEND
  8. 80 LINE INPUT #1,A$:PRINT A$:GOTO 60
  9. 90 RESUME 40
  10.